home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / resume87.arc / RESUME3.BAS < prev    next >
BASIC Source File  |  1987-08-31  |  21KB  |  442 lines
  1. 10 DEFINT A-Z
  2. 30 COMMON B,F,S
  3. 40 COMMON A$(),C$,CC$,D$,DD$,DDD$,E$,ED$,F$,G$,H$(),I$,J$,K$,M$,N$,O$,P$,P1$,P2$
  4. 50 COMMON Q$(),QQ$(),QQQ$(),U$,V$(),WE$,WO$,X$,Y$,ZR$
  5. 60 IF O$="6" THEN 240
  6. 70 IF O$="C" OR O$="c" THEN 240
  7. 80 IF O$="B" OR O$="b" THEN GOSUB 220:GOTO 730
  8. 90 IF O$="10" THEN 3650
  9. 100 IF CC$<>"DONE" THEN 240
  10. 110 IF O$="7" THEN 920
  11. 120 IF O$="8" THEN 1900
  12. 130 IF O$="9" THEN 2790
  13. 140 GOSUB 220:PRINT TAB(15) "That certainly is an OTHER response!":PRINT
  14. 150 PRINT TAB(15) "Please recheck the directions ... "
  15. 160 GOSUB 230
  16. 170 GOSUB 220
  17. 180 RETURN
  18. 190 FOR D=1 TO 30*F:NEXT:RETURN:REM --TIMING LOOP
  19. 200 FOR G=1 TO 11:PRINT:NEXT:FOR D=1 TO 70*F:NEXT:RETURN:REM --TIMING LOOP
  20. 210 GOSUB 200:GOSUB 190:RETURN
  21. 220 FOR A=1 TO 24:PRINT:NEXT:RETURN
  22. 230 GOSUB 210:GOSUB 190:RETURN
  23. 240 GOSUB 220
  24. 250 PRINT TAB(15) "**********************************************"
  25. 260 PRINT TAB(15) "Instruction for Other: (You Name It!) Sections"
  26. 270 PRINT TAB(15) "**********************************************":GOSUB 210
  27. 280 GOSUB 220:PRINT TAB(10) "Have you already been through these instructions,"
  28. 290 PRINT TAB(10) "and you're ready to write?":PRINT
  29. 300 PRINT TAB(10) "Press:  I = I need the vital instructions ... ":PRINT
  30. 310 PRINT TAB(10) "        M = Menu ... ":PRINT
  31. 320 PRINT TAB(10) "        Y = Yes, write on!"
  32. 330 PRINT:INPUT "                 ", O$
  33. 340 IF O$="Y" OR O$="y" THEN GOSUB 220:GOTO 730
  34. 350 IF O$="M" OR O$="m" THEN GOSUB 220:CHAIN"RESUME5"
  35. 360 GOSUB 220
  36. 370 PRINT TAB(10) "YOU may need no Other, " C$"!":GOSUB 230
  37. 380 GOSUB 220:PRINT "Use any of these 3 sections ONLY IF"
  38. 390 PRINT "you need to include information"
  39. 400 PRINT "that isn't appropriate to the required sections.":PRINT:PRINT
  40. 410 PRINT
  41. 420 PRINT "Suggestions: 1) Qualifications"
  42. 430 PRINT "             2) Personal information"
  43. 440 PRINT "             3) Skills, Achievements, or Interests"
  44. 450 PRINT "             4) Other--All of the above, including miscellaneous"
  45. 460 PRINT "                       information such as hobbies, ";
  46. 470 PRINT "military service,"
  47. 480 PRINT "                       and personal characteristics should only be"
  48. 490 PRINT "                       included IF: ";
  49. 500 PRINT "they apply to your Work Objective"
  50. 510 PRINT "                                    & they reveal ability to lead"
  51. 520 PRINT "                                    & command respect.":PRINT
  52. 530 PRINT:INPUT "Press RETURN to see a sample ... ",ZQ$
  53. 540 PRINT:PRINT "        E = Escape to Menu, I want something Other! ... ";
  54. 550 GOSUB 220
  55. 560 PRINT "Follow the LAYOUT, PUNCTUATION, CAPITALIZATION & CONCISE style"
  56. 570 PRINT "of this sample OTHER (You Name It!) section:":PRINT
  57. 580 PRINT "Notice how indentation makes the entries more readable"
  58. 590 PRINT "without wasting space.  And be CONSISTENT throughout your resume."
  59. 600 PRINT:GOSUB 610:GOTO 680
  60. 610 PRINT:PRINT:PRINT TAB(27) "Sample Other: (You Name It!) section"
  61. 620 PRINT TAB(27) "************************************":PRINT
  62. 630 PRINT TAB(10) "Personal:";
  63. 640 PRINT TAB(27) "Born 12/14/50, married, 2 children, health excellent,"
  64. 650 PRINT TAB(27) "love tennis, reading and computers.":PRINT:PRINT
  65. 660 INPUT "Press RETURN key only after Sample well in mind ... ", VA$
  66. 670 RETURN
  67. 680 GOSUB 220
  68. 690 PRINT "OK, " C$ ", now let's write your Other: (You Name It!) section(s)."
  69. 700 GOSUB 210:GOSUB 4090
  70. 710 PRINT:PRINT "I will also limit you to 9 lines.  These sections should be"
  71. 720 PRINT "more concise than that.  Do not skip a line.":PRINT:PRINT
  72. 730 IF D$<>""THEN PRINT"Press:  1 = "D$" (You've Named It!)":GOTO 750
  73. 740 PRINT "Press:  1 = Other: (You Name It!)"
  74. 750 IF DD$<>"" THEN PRINT"        2 = "DD$" (You've Named It!)":GOTO 770
  75. 760 PRINT "        2 = Other: (You Name It!)
  76. 770 IF DDD$<>"" THEN 780 ELSE 790
  77. 780 PRINT "        3 = " DDD$ " (You've Named It!)":GOTO 810
  78. 790 PRINT "        3 = Other: (You Name It!)"
  79. 800 PRINT "        I = Instructions one more time, please!"
  80. 810 PRINT "        M = Menu to choose a section"
  81. 820 PRINT "        R = References is the Other section I really want"
  82. 830 INPUT "        ", O$
  83. 840 CC$="DONE"
  84. 850 IF O$="1" THEN 920
  85. 860 IF O$="2" THEN 1900
  86. 870 IF O$="3" THEN 2790
  87. 880 IF O$="I" OR O$="i" THEN 240
  88. 890 IF O$="M" OR O$="m" THEN GOSUB 220:CHAIN"RESUME5"
  89. 900 IF O$="R" OR O$="r" THEN 3650
  90. 910 GOSUB 140:GOTO 730
  91. 920 IF D$<>"" THEN 930 ELSE GOSUB 1000:GOTO 1050
  92. 930 GOSUB 220
  93. 940 L=LEN(D$)+LEN(" (You Named It!)"):PRINT TAB(33):FOR Y=1 TO L:PRINT "*";
  94. 950 NEXT
  95. 960 PRINT TAB(33) D$ " (You Named It!)"
  96. 970 PRINT TAB(33):FOR Y=1 TO L:PRINT "*";:NEXT:GOSUB 210
  97. 980 GOSUB 4180:GOTO 1240
  98. 990 GOSUB 1000:GOTO 1060
  99. 1000 GOSUB 220
  100. 1010 PRINT TAB(33) "*********************"
  101. 1020 PRINT TAB(33) "Other: (You Name It!)"
  102. 1030 PRINT TAB(33) "*********************":GOSUB 210:RETURN
  103. 1040 IF L>50 THEN GOSUB 4160:GOTO 1320:RETURN ELSE RETURN
  104. 1050 GOSUB 4180
  105. 1060 GOSUB 220
  106. 1070 PRINT "A section name must be: Cap & Lower Case"
  107. 1080 PRINT "                        Less than 17 characters long"
  108. 1090 PRINT "                        End with a colon (:)"
  109. 1100 PRINT:PRINT:PRINT
  110. 1110 INPUT "What will YOU name this section? ... ", D$
  111. 1120 IF D$="" THEN 1130 ELSE 1160
  112. 1130 GOSUB 220
  113. 1140 PRINT "Okay, take a little while to think ... "
  114. 1150 GOSUB 210:GOTO 1320
  115. 1160 L=LEN(D$):IF L>16 THEN 1170 ELSE 1200
  116. 1170 GOSUB 220
  117. 1180 PRINT "Too LONG on creativity!  Please shorten by" L-16 "character(s)!"
  118. 1190 GOSUB 210:GOTO 1060
  119. 1200 IF RIGHT$(D$,1)<>":" THEN 1210 ELSE 1220
  120. 1210 GOSUB 220:PRINT "Colon (:) at end of name, please ... ":GOSUB 210:GOTO 1060
  121. 1220 IF MID$(D$,2,1)>"@" AND MID$(D$,2,1)<"[" THEN 1230 ELSE 1240
  122. 1230 GOSUB 220:PRINT "Cap & Lower Case, please ... ":GOSUB 210:GOTO 1060
  123. 1240 FOR Y=1 TO 9:IF Q$(Y)<>"" THEN B=B-1:NEXT
  124. 1250 IF Q$(1)<>"" THEN S=S-1
  125. 1260 GOTO 1320
  126. 1270 GOSUB 220
  127. 1280 PRINT TAB(10) "Your entries & how they will appear on your Resume ..."
  128. 1290 PRINT
  129. 1300 PRINT "Line 1" TAB(10) D$ TAB(27) Q$(1)
  130. 1310 FOR Y=2 TO 9:PRINT "Line" Y ".................." TAB(27) Q$(Y):NEXT:RETURN
  131. 1320 GOSUB 1270:PRINT
  132. 1330 PRINT "Enter: Line #; D=Done; N=Name section; ";
  133. 1340 INPUT "R=Restart; S=Sample ... ", W$
  134. 1350 PRINT
  135. 1360 IF W$="N" OR W$="n" THEN 1060
  136. 1370 IF W$="S" OR W$="s" THEN GOSUB 220:GOSUB 610:GOTO 1320
  137. 1380 IF W$="R" OR W$="r" THEN 1390 ELSE 1430
  138. 1390 FOR Y=1 TO 9
  139. 1400 Q$(Y)=""
  140. 1410 NEXT
  141. 1420 GOTO 1320
  142. 1430 IF W$="D" OR W$="d" THEN 1440 ELSE 1470
  143. 1440 IF D$="" THEN 1450 ELSE 1740
  144. 1450 GOSUB 220:PRINT TAB(10) "Done?  This section needs a name. Please edit ..."
  145. 1460 GOSUB 210:GOTO 1740
  146. 1470 H=VAL(W$)
  147. 1480 IF H<1 OR H>9 THEN 1490 ELSE 1510
  148. 1490 GOSUB 220:PRINT "Whoa! Talk about being out of line!"
  149. 1500 GOSUB 210:GOSUB 220:PRINT "1 through 9, please ... ":GOSUB 210:GOTO 1320
  150. 1510 ON H GOSUB 1520,1540,1600,1620,1640,1660,1680,1700,1720:GOTO 1320
  151. 1520 PRINT:PRINT X$;Q$(1):GOSUB 4130:PRINT Y$;:LINE INPUT Q$(1)
  152. 1530 L=LEN(Q$(1)):GOSUB 1040:RETURN
  153. 1540 IF Q$(1)="" THEN GOSUB 4390:GOTO 1320
  154. 1550 PRINT
  155. 1560 PRINT X$;Q$(2)
  156. 1570 GOSUB 4130
  157. 1580 PRINT Y$;:LINE INPUT Q$(2)
  158. 1590 L=LEN(Q$(2)):GOSUB 1040:RETURN
  159. 1600 PRINT:PRINT X$;Q$(3):GOSUB 4130:PRINT Y$;:LINE INPUT Q$(3)
  160. 1610 L=LEN(Q$(3)):GOSUB 1040:RETURN
  161. 1620 PRINT:PRINT X$;Q$(4):GOSUB 4130:PRINT Y$;:LINE INPUT Q$(4)
  162. 1630 L=LEN(Q$(4)):GOSUB 1040:RETURN
  163. 1640 PRINT:PRINT X$;Q$(5):GOSUB 4130:PRINT Y$;:LINE INPUT Q$(5)
  164. 1650 L=LEN(Q$(5)):GOSUB 1040:RETURN
  165. 1660 PRINT:PRINT X$;Q$(6):GOSUB 4130:PRINT Y$;:LINE INPUT Q$(6)
  166. 1670 L=LEN(Q$(6)):GOSUB 1040:RETURN
  167. 1680 PRINT:PRINT X$;Q$(7):GOSUB 4130:PRINT Y$;:LINE INPUT Q$(7)
  168. 1690 L=LEN(Q$(7)):GOSUB 1040:RETURN
  169. 1700 PRINT:PRINT X$;Q$(8):GOSUB 4130:PRINT Y$;:LINE INPUT Q$(8)
  170. 1710 L=LEN(Q$(8)):GOSUB 1040:RETURN
  171. 1720 PRINT:PRINT X$;Q$(9):GOSUB 4130:PRINT Y$;:LINE INPUT Q$(9)
  172. 1730 L=LEN(Q$(9)):GOSUB 1040:RETURN
  173. 1740 FOR Y=1 TO 9:L=LEN (Q$(Y)):IF L>50 THEN GOSUB 4260:GOTO 1760
  174. 1750 NEXT Y:GOTO 1770
  175. 1760 IF LO$="B" OR LO$="b" THEN GOSUB 220:GOTO 1320
  176. 1770 S=S+1:FOR Y=1 TO 9:IF Q$(Y)<>"" THEN B=B+1:NEXT
  177. 1780 GOSUB 220:PRINT "I hope this section shows that you qualify"
  178. 1790 PRINT "for your Work Objective!":PRINT:IF DD$<>"" THEN 1800 ELSE 1820
  179. 1800 PRINT:PRINT "Press:  C = Continue to " DD$ " (You Named It!) section"
  180. 1810 GOTO 1830
  181. 1820 PRINT:PRINT "Press:  C = Continue to the 2nd Other: (You Name It!) section"
  182. 1830 PRINT:PRINT "        E = Edit this section some more"
  183. 1840 PRINT:PRINT "        M = Menu to choose a section"
  184. 1850 PRINT:INPUT "        ", O$
  185. 1860 IF O$="C" OR O$="c" THEN 1900
  186. 1870 IF O$="M" OR O$="m" THEN GOSUB 220:CHAIN"RESUME5"
  187. 1880 IF O$="E" OR O$="e" THEN 1240 ELSE GOSUB 140:GOTO 1820
  188. 1890 IF L>50 THEN GOSUB 4160:GOTO 2230:RETURN ELSE RETURN
  189. 1900 IF DD$="" THEN GOSUB 1000:GOTO 1970
  190. 1910 GOSUB 220
  191. 1920 L=LEN(DD$)+LEN(" (You Named It!)"):PRINT TAB(33):FOR Y=1 TO L:PRINT "*";
  192. 1930 NEXT
  193. 1940 PRINT TAB(33) DD$ " (You Named It!)"
  194. 1950 PRINT TAB(33):FOR Y=1 TO L:PRINT "*";:NEXT:GOSUB 210
  195. 1960 GOSUB 4180:GOTO 2150
  196. 1970 GOSUB 4180
  197. 1980 GOSUB 220
  198. 1990 PRINT "A section name must be: Cap & Lower Case"
  199. 2000 PRINT "                        Less than 17 characters long"
  200. 2010 PRINT "                        End with a colon (:)"
  201. 2020 PRINT:PRINT:PRINT
  202. 2030 INPUT "What will YOU name this section? ... ", DD$
  203. 2040 IF DD$="" THEN 2050 ELSE 2070
  204. 2050 GOSUB 220:PRINT "Ok, take a little while to think ..."
  205. 2060 GOSUB 210:GOTO 2230
  206. 2070 L=LEN(DD$):IF L>16 THEN 2080 ELSE 2110
  207. 2080 GOSUB 220
  208. 2090 PRINT "Too LONG on creativity!  Please shorten by" L-16 "character(s)!"
  209. 2100 GOSUB 210:GOTO 1980
  210. 2110 IF RIGHT$(DD$,1)<>":" THEN 2120 ELSE 2130
  211. 2120 GOSUB 220:PRINT "Colon (:) at end of name, please ...":GOSUB 210:GOTO 1980
  212. 2130 IF MID$(DD$,2,1)>"@" AND MID$(DD$,2,1)<"[" THEN 2140 ELSE 2150
  213. 2140 GOSUB 220:PRINT "Cap & Lower Case, please ...":GOSUB 210:GOTO 1980
  214. 2150 FOR Y=1 TO 9:IF QQ$(Y)<>"" THEN B=B-1:NEXT
  215. 2160 IF QQ$(1)<>"" THEN S=S-1
  216. 2170 GOTO 2230
  217. 2180 GOSUB 220
  218. 2190 PRINT TAB(10) "Your entries & how they will appear on your Resume ... "
  219. 2200 PRINT
  220. 2210 PRINT "Line 1" TAB(10) DD$ TAB(27) QQ$(1)
  221. 2220 FOR Y=2 TO 9:PRINT "Line" Y ".................." TAB(27) QQ$(Y):NEXT:RETURN
  222. 2230 GOSUB 2180:PRINT
  223. 2240 PRINT "Enter: Line #; D=Done; N=Name section; ";
  224. 2250 INPUT "R=Restart; S=Sample ... ", W$
  225. 2260 PRINT
  226. 2270 GOTO 2280
  227. 2280 IF W$="N" OR W$="n" THEN 1980 ELSE 2290
  228. 2290 IF W$="S" OR W$="s" THEN GOSUB 220:GOSUB 610:GOTO 2230
  229. 2300 IF W$="R" OR W$="r" THEN 2310 ELSE 2330
  230. 2310 FOR Y=1 TO 9:QQ$(Y)="":NEXT
  231. 2320 GOTO 2230
  232. 2330 IF W$="D" OR W$="d" THEN 2340 ELSE 2370
  233. 2340 IF DD$="" THEN 2350 ELSE 2610
  234. 2350 GOSUB 220:PRINT TAB(10) "Done?  This section needs a name. Please edit ..."
  235. 2360 GOSUB 210:GOTO 2610
  236. 2370 H=VAL(W$)
  237. 2380 IF H<1 OR H>9 THEN 2390 ELSE 2410
  238. 2390 GOSUB 220:PRINT "Whoa!  Talk about being out of line!"
  239. 2400 GOSUB 210:GOSUB 220:PRINT "1 through 9, please ... ":GOSUB 210:GOTO 2230
  240. 2410 ON H GOSUB 2420,2440,2470,2490,2510,2530,2550,2570,2590:GOTO 2230
  241. 2420 PRINT:PRINT X$;QQ$(1):GOSUB 4130:PRINT Y$;:LINE INPUT QQ$(1)
  242. 2430 L=LEN(QQ$(1)):GOSUB 1890:RETURN
  243. 2440 IF QQ$(1)="" THEN GOSUB 4390:GOTO 2230
  244. 2450 PRINT:PRINT X$;QQ$(2):GOSUB 4130:PRINT Y$;:LINE INPUT QQ$(2)
  245. 2460 L=LEN(QQ$(2)):GOSUB 1890:RETURN
  246. 2470 PRINT:PRINT X$;QQ$(3):GOSUB 4130:PRINT Y$;:LINE INPUT QQ$(3)
  247. 2480 L=LEN(QQ$(3)):GOSUB 1890:RETURN
  248. 2490 PRINT:PRINT X$;QQ$(4):GOSUB 4130:PRINT Y$;:LINE INPUT QQ$(4)
  249. 2500 L=LEN(QQ$(4)):GOSUB 1890:RETURN
  250. 2510 PRINT:PRINT X$;QQ$(5):GOSUB 4130:PRINT Y$;:LINE INPUT QQ$(5)
  251. 2520 L=LEN(QQ$(5)):GOSUB 1890:RETURN
  252. 2530 PRINT:PRINT X$;QQ$(6):GOSUB 4130:PRINT Y$;:LINE INPUT QQ$(6)
  253. 2540 L=LEN(QQ$(6)):GOSUB 1890:RETURN
  254. 2550 PRINT:PRINT X$;QQ$(7):GOSUB 4130:PRINT Y$;:LINE INPUT QQ$(7)
  255. 2560 L=LEN(QQ$(7)):GOSUB 1890:RETURN
  256. 2570 PRINT:PRINT X$;QQ$(8):GOSUB 4130:PRINT Y$;:LINE INPUT QQ$(8)
  257. 2580 L=LEN(QQ$(8)):GOSUB 1890:RETURN
  258. 2590 PRINT:PRINT X$;QQ$(9):GOSUB 4130:PRINT Y$;:LINE INPUT QQ$(9)
  259. 2600 L=LEN(QQ$(9)):GOSUB 1890:RETURN
  260. 2610 FOR Y=1 TO 9:L=LEN (QQ$(Y)):IF L>50 THEN GOSUB 4260:GOTO 2630
  261. 2620 NEXT Y:GOTO 2640
  262. 2630 IF LO$="B" OR LO$="b" THEN GOSUB 220:GOTO 2230
  263. 2640 S=S+1:FOR Y=1 TO 9:IF QQ$(Y)<>"" THEN B=B+1:NEXT
  264. 2650 GOSUB 220:PRINT "I hope this section shows that you qualify"
  265. 2660 PRINT "for your Work Objective!":PRINT:IF DDD$<>"" THEN 2670 ELSE 2690
  266. 2670 PRINT:PRINT "Press:  C = Continue to " DDD$ " (You Named It!) section"
  267. 2680 GOTO 2700
  268. 2690 PRINT:PRINT "Press:  C = Continue to the 3rd Other: (You Name It!) section"
  269. 2700 PRINT:PRINT "        E = Edit this section some more"
  270. 2710 PRINT:PRINT "        M = Menu to choose a section"
  271. 2720 PRINT
  272. 2730 INPUT "        ", O$
  273. 2740 IF O$="C" OR O$="c" THEN 2790
  274. 2750 IF O$="E" OR O$="e" THEN 2150
  275. 2760 IF O$="M" OR O$="m" THEN GOSUB 220:CHAIN"RESUME5"
  276. 2770 GOSUB 140:GOTO 2690
  277. 2780 IF L>50 THEN GOSUB 4160:GOTO 3120:RETURN ELSE RETURN
  278. 2790 IF DDD$<>"" THEN 2800 ELSE GOSUB 1000:GOTO 2860
  279. 2800 GOSUB 220
  280. 2810 L=LEN(DDD$)+LEN(" (You Named It!)"):PRINT TAB(33):FOR Y=1 TO L:PRINT "*";
  281. 2820 NEXT
  282. 2830 PRINT TAB(33) DDD$ " (You Named It!)"
  283. 2840 PRINT TAB(33):FOR Y=1 TO L:PRINT "*";:NEXT:GOSUB 210
  284. 2850 GOSUB 4180:GOTO 3040
  285. 2860 GOSUB 4180
  286. 2870 GOSUB 220
  287. 2880 PRINT " A section name must be: Cap & Lower Case"
  288. 2890 PRINT "                         Less than 17 characters long"
  289. 2900 PRINT "                         End with a colon (:)"
  290. 2910 PRINT:PRINT:PRINT
  291. 2920 INPUT "What will YOU name this section? ... ", DDD$
  292. 2930 IF DDD$="" THEN 2940 ELSE 2960
  293. 2940 GOSUB 220:PRINT "OK, take a little while to think ..."
  294. 2950 GOSUB 210:GOTO 3120
  295. 2960 L=LEN(D$):IF L>16 THEN 2970 ELSE 3000
  296. 2970 GOSUB 220
  297. 2980 PRINT "Too LONG on creativity!  Please shorten by" L-16 "character(s)!"
  298. 2990 GOSUB 210:GOTO 2870
  299. 3000 IF RIGHT$(DDD$,1)<>":" THEN 3010 ELSE 3020
  300. 3010 GOSUB 220:PRINT "Colon (:) at end of name, please ...":GOSUB 210:GOTO 2870
  301. 3020 IF MID$(DDD$,2,1)>"@" AND MID$(DDD$,2,1)<"[" THEN 3030 ELSE 3040
  302. 3030 GOSUB 220:PRINT "Cap & Lower Case, please ... ":GOSUB 210:GOTO 2870
  303. 3040 FOR Y=1 TO 9:IF QQQ$(Y)<>"" THEN B=B-1:NEXT
  304. 3050 IF QQQ$(1)<>"" THEN S=S-1
  305. 3060 GOTO 3120
  306. 3070 GOSUB 220
  307. 3080 PRINT TAB(10) "Your entries & how they will appear on your Resume ..."
  308. 3090 PRINT
  309. 3100 PRINT "Line 1" TAB(10) DDD$ TAB(27) QQQ$(1)
  310. 3110 FOR Y=2 TO 9:PRINT "Line"Y ".................." TAB(27) QQQ$(Y):NEXT:RETURN
  311. 3120 GOSUB 3070:PRINT
  312. 3130 PRINT "Enter: Line #; D=Done; N=Name section; ";
  313. 3140 INPUT "R=Restart; S=Sample ... ", W$
  314. 3150 PRINT
  315. 3160 IF W$="N" OR W$="n" THEN 2870
  316. 3170 IF W$="S" OR W$="s" THEN GOSUB 220:GOSUB 610:GOTO 3120
  317. 3180 IF W$="R" OR W$="r" THEN 3190 ELSE 3230
  318. 3190 FOR Y=1 TO 9
  319. 3200 QQQ$(Y)=""
  320. 3210 NEXT
  321. 3220 GOTO 3120
  322. 3230 IF W$="D" OR W$="d" THEN 3240 ELSE 3270
  323. 3240 IF DDD$="" THEN 3250 ELSE 3510
  324. 3250 GOSUB 220:PRINT TAB(10) "Done?  This section needs a name. Please edit ..."
  325. 3260 GOSUB 210:GOTO 3510
  326. 3270 H=VAL(W$)
  327. 3280 IF H<1 OR H>9 THEN 3290 ELSE 3310
  328. 3290 GOSUB 220:PRINT "Whoa!  Talk about being out of line!"
  329. 3300 GOSUB 210:GOSUB 220:PRINT "1 through 9, please ... ":GOSUB 210:GOTO 3120
  330. 3310 ON H GOSUB 3320,3340,3370,3390,3410,3430,3450,3470,3490:GOTO 3120
  331. 3320 PRINT:PRINT X$;QQQ$(1):GOSUB 4130:PRINT Y$;:LINE INPUT QQQ$(1)
  332. 3330 L=LEN(QQQ$(1)):GOSUB 2780:RETURN
  333. 3340 IF QQQ$(1)="" THEN GOSUB 4390:GOTO 3120
  334. 3350 PRINT:PRINT X$;QQQ$(2):GOSUB 4130:PRINT Y$;:LINE INPUT QQQ$(2)
  335. 3360 L=LEN(QQQ$(2)):GOSUB 2780:RETURN
  336. 3370 PRINT:PRINT X$;QQQ$(3):GOSUB 4130:PRINT Y$;:LINE INPUT QQQ$(3)
  337. 3380 L=LEN(QQQ$(3)):GOSUB 2780:RETURN
  338. 3390 PRINT:PRINT X$;QQQ$(4):GOSUB 4130:PRINT Y$;:LINE INPUT QQQ$(4)
  339. 3400 L=LEN(QQQ$(4)):GOSUB 2780:RETURN
  340. 3410 PRINT:PRINT X$;QQQ$(5):GOSUB 4130:PRINT Y$;:LINE INPUT QQQ$(5)
  341. 3420 L=LEN(QQQ$(5)):GOSUB 2780:RETURN
  342. 3430 PRINT:PRINT X$;QQQ$(6):GOSUB 4130:PRINT Y$;:LINE INPUT QQQ$(6)
  343. 3440 L=LEN(QQQ$(6)):GOSUB 2780:RETURN
  344. 3450 PRINT:PRINT X$;QQQ$(7):GOSUB 4130:PRINT Y$;:LINE INPUT QQQ$(7)
  345. 3460 L=LEN(QQQ$(7)):GOSUB 2780:RETURN
  346. 3470 PRINT:PRINT X$;QQQ$(8):GOSUB 4130:PRINT Y$;:LINE INPUT QQQ$(8)
  347. 3480 L=LEN(QQQ$(8)):GOSUB 2780:RETURN
  348. 3490 PRINT:PRINT X$;QQQ$(9):GOSUB 4130:PRINT Y$;:LINE INPUT QQQ$(9)
  349. 3500 L=LEN(QQQ$(9)):GOSUB 2780:RETURN
  350. 3510 FOR Y=1 TO 9:L=LEN (QQQ$(Y)):IF L>50 THEN GOSUB 4260:GOTO 3530
  351. 3520 NEXT Y:GOTO 3540
  352. 3530 IF LO$="B" OR LO$="b" THEN GOSUB 220:GOTO 3120
  353. 3540 S=S+1:FOR Y=1 TO 9:IF QQQ$(Y)<>"" THEN B=B+1:NEXT
  354. 3550 GOSUB 220:PRINT "I hope this section shows that you qualify"
  355. 3560 PRINT "for your Work Objective!":PRINT
  356. 3570 PRINT:PRINT "Press:  C = Continue to the thrilling REFERENCES section"
  357. 3580 PRINT:PRINT "        E = Edit this section some more"
  358. 3590 PRINT:PRINT "        M = Menu to choose a section":PRINT
  359. 3600 INPUT "        ", O$
  360. 3610 IF O$="C" OR O$="c" THEN 3650
  361. 3620 IF O$="E" OR O$="e" THEN 3060
  362. 3630 IF O$="M" OR O$="m" THEN GOSUB 220:CHAIN"RESUME5"
  363. 3640 GOSUB 140:GOTO 3570
  364. 3650 GOSUB 220:PRINT TAB(33) "***********"
  365. 3660 PRINT TAB(33) "References:"
  366. 3670 PRINT TAB(33) "***********":GOSUB 210
  367. 3680 IF Z$="I" OR Z$="i" THEN S=S-1:B=B-1
  368. 3690 GOSUB 220
  369. 3700 PRINT TAB(10) "What could be so thrilling about this REFERENCES section?"
  370. 3710 PRINT:PRINT:PRINT
  371. 3720 PRINT TAB(10) "Press:  I = I give up, thrill me!":PRINT
  372. 3730 PRINT TAB(10) "        M = Menu--I can't take any more thrills right now!"
  373. 3740 PRINT:INPUT "                 ",O$
  374. 3750 IF O$="M" OR O$="m" THEN GOSUB 220:CHAIN"RESUME5"
  375. 3760 GOSUB 220:PRINT TAB(10) "YOU don't have to write it!":GOSUB 210
  376. 3770 GOSUB 220:PRINT "I'm trying my best to make this easy for you!":PRINT
  377. 3780 PRINT "That's one reason I listed this section last."
  378. 3790 PRINT "The other is that it is usually at the bottom of a resume."
  379. 3800 PRINT:PRINT "References are NEVER listed on a resume.  This way,"
  380. 3810 PRINT "your references won't be bothered till you receive serious offers."
  381. 3820 PRINT:PRINT
  382. 3830 PRINT:INPUT "Press RETURN to see how this section will print out ... ", VB$
  383. 3840 GOSUB 220
  384. 3850 PRINT TAB(10) "References:" TAB(27) "On request."
  385. 3860 GOSUB 210:GOSUB 190
  386. 3870 GOSUB 220:PRINT "Press: I = Include on your resume"
  387. 3880 PRINT:PRINT "       M = Menu to choose a section"
  388. 3890 PRINT
  389. 3900 INPUT "       ", ZR$
  390. 3910 IF ZR$="M" OR ZR$="m" THEN GOSUB 220:LET O$="M":CHAIN"RESUME5"
  391. 3920 IF ZR$="I" OR ZR$="i" THEN 3950
  392. 3930 GOSUB 220:PRINT TAB(10)"Looks like I must REFER you ... to the directions!"
  393. 3940 GOSUB 210:GOTO 3870
  394. 3950 S=S+1:B=B+1
  395. 3960 GOSUB 220:PRINT "Very good, then I'll include it on your resume!":PRINT
  396. 3970 PRINT:PRINT:PRINT "Now you must be READY with at least 3 good references."
  397. 3980 PRINT:PRINT "Please contact them FIRST and let them know"
  398. 3990 PRINT "about your resume and search for work.":PRINT:PRINT:PRINT
  399. 4000 PRINT "Press:  M = Menu":PRINT
  400. 4010 PRINT "        P = Print!  Let's see how it looks!"
  401. 4020 PRINT
  402. 4030 INPUT "        ", O$
  403. 4040 IF O$="M" OR O$="m" THEN GOSUB 220:CHAIN"RESUME5"
  404. 4050 IF O$="P" OR O$="p" THEN GOSUB 220:CHAIN"RESUME4"
  405. 4060 GOSUB 220
  406. 4070 PRINT TAB(10) "Looks like I must refer you ... to the directions!"
  407. 4080 GOSUB 230:GOTO 3960
  408. 4090 GOSUB 220:PRINT "Each line you type must be less than 50 characters"
  409. 4100 PRINT "but you should fill up the line as much as you can"
  410. 4110 PRINT "as you would in regular typing."
  411. 4120 PRINT:PRINT"I will display the margins for each line on the screen.":RETURN
  412. 4130 PRINT
  413. 4140 PRINT TAB(21) "M ....... A ....... R ....... G ....... I ...... N"
  414. 4150 PRINT:RETURN
  415. 4160 GOSUB 220:PRINT "Item too long by" L-50 "character(s).  SHORTEN!"
  416. 4170 GOSUB 210:RETURN
  417. 4180 GOSUB 220
  418. 4190 PRINT "Press:  L = Let's go!  I'm ready!":PRINT
  419. 4200 PRINT "        W = Whoa!  Wrong key, let me back to the Menu!"
  420. 4210 PRINT
  421. 4220 INPUT "        ", O$
  422. 4230 IF O$="W" OR O$="w" THEN GOSUB 220:LET O$="M":CHAIN"RESUME5"
  423. 4240 IF O$<>"L" AND O$<>"l" THEN GOSUB 140:GOTO 4180
  424. 4250 RETURN
  425. 4260 GOSUB 220
  426. 4270 PRINT TAB(10) "Oh oh!":PRINT
  427. 4280 PRINT TAB(10) "1 (and possibly more) of your lines in this section"
  428. 4290 PRINT TAB(10) "exceeds the margins I have set for an attractive layout."
  429. 4300 PRINT
  430. 4310 PRINT TAB(10) "But you can be OUT OF LINE if you THINK best!"
  431. 4320 PRINT:PRINT:PRINT TAB(10) "Press:  B = Bring this section into line!"
  432. 4330 PRINT:PRINT TAB(10);
  433. 4340 PRINT "        L = Leave me be, I've got BOUNDless energy, if not sense!"
  434. 4350 PRINT:PRINT TAB(10):INPUT "        ", LO$
  435. 4360 IF LO$="L" OR LO$="l" THEN RETURN
  436. 4370 IF LO$<>"B" AND LO$<>"b" THEN GOSUB 140:GOTO 4260
  437. 4380 RETURN
  438. 4390 GOSUB 220
  439. 4400 PRINT "Oh oh ... Line 1 cannot be empty if Line 2 will have text."
  440. 4410 GOSUB 230
  441. 4420 RETURN
  442.